#!/usr/bin/perl -w
#
#

use File::Spec;

my $root=File::Spec->rel2abs(".");

opendir $DIR,$root;

foreach(readdir($DIR))
{
	if( -d "$root/$_/.svn")
	{
		print "svn up $root/$_\n";
		system("svn up $root/$_");
	}

    if( -d "$root/$_/.git")
    {
        print "git pull $root/$_\n";
        system( "git pull");
    }
}

close $DIR;

